| 1 | '============================================================================================ | = | 1 | '============================================================================================ |
| 2 | ' ? Copyright, 2005-2008 MicroFour, Inc., All rights reserved. | 2 | ' ? Copyright, 2005-2008 MicroFour, Inc., All rights reserved. | |
| 3 | ' | 3 | ' | |
| 4 | ' This software and its associated documentation contain valuable trade secrets | 4 | ' This software and its associated documentation contain valuable trade secrets | |
| 5 | ' and proprietary information belonging to MicroFour, Inc. None of the software | 5 | ' and proprietary information belonging to MicroFour, Inc. None of the software | |
| 6 | ' or its associated documentation may be stored in a retrieval system, copied, | 6 | ' or its associated documentation may be stored in a retrieval system, copied, | |
| 7 | ' transmitted, distributed, transcribed or reproduced in any other way or disclosed | 7 | ' transmitted, distributed, transcribed or reproduced in any other way or disclosed | |
| 8 | ' to any third parties without the express written permission of MicroFour, Inc. | 8 | ' to any third parties without the express written permission of MicroFour, Inc. | |
| 9 | ' | 9 | ' | |
| 10 | ' UNDER NO CIRCUMSTANCES SHALL MICROFOUR, INC. BE LIABLE FOR INCIDENTAL, SPECIAL, | 10 | ' UNDER NO CIRCUMSTANCES SHALL MICROFOUR, INC. BE LIABLE FOR INCIDENTAL, SPECIAL, | |
| 11 | ' INDIRECT, DIRECT OR CONSEQUENTIAL DAMAGES OR LOSS OF PROFITS, INTERRUPTION OF | 11 | ' INDIRECT, DIRECT OR CONSEQUENTIAL DAMAGES OR LOSS OF PROFITS, INTERRUPTION OF | |
| 12 | ' BUSINESS, OR RELATED EXPENSES WHICH MAY ARISE FROM THE USE OF SOFTWARE OR DOCUMENTATION, | 12 | ' BUSINESS, OR RELATED EXPENSES WHICH MAY ARISE FROM THE USE OF SOFTWARE OR DOCUMENTATION, | |
| 13 | ' INCLUDING BUT NOT LIMITED TO THOSE RESULTING FROM DEFECTS IN SOFTWARE AND/OR DOCUMENTATION, | 13 | ' INCLUDING BUT NOT LIMITED TO THOSE RESULTING FROM DEFECTS IN SOFTWARE AND/OR DOCUMENTATION, | |
| 14 | ' OR LOSS OR INACCURACY OF DATA OF ANY KIND. | 14 | ' OR LOSS OR INACCURACY OF DATA OF ANY KIND. | |
| 15 | '-------------------------------------------------------------------------------------------- | 15 | '-------------------------------------------------------------------------------------------- | |
| 16 | ' ANY USE OF THIS CODE CONSTITUTES ACCEPTANCE OF THE TERMS OF THE COPYRIGHT NOTICE | 16 | ' ANY USE OF THIS CODE CONSTITUTES ACCEPTANCE OF THE TERMS OF THE COPYRIGHT NOTICE | |
| 17 | '-------------------------------------------------------------------------------------------- | 17 | '-------------------------------------------------------------------------------------------- | |
| 18 | ' DO NOT REMOVE THIS DISCLAIMER | 18 | ' DO NOT REMOVE THIS DISCLAIMER | |
| 19 | '============================================================================================ | 19 | '============================================================================================ | |
| 20 | 20 | |||
| 21 | Imports MicroFour.StrataFrame.Business | 21 | Imports MicroFour.StrataFrame.Business | |
| 22 | 22 | |||
| 23 | Namespace UI.Windows.Forms | 23 | Namespace UI.Windows.Forms | |
| 24 | Partial Public Class BaseForm | <> | 24 | Partial Public Class BaseForm_wDXRibbon |
| 25 | Inherits System.Windows.Forms.Form | 25 | Inherits DevExpress.XtraBars.Ribbon.RibbonForm | |
| 26 | = | 26 | ||
| 27 | <System.Diagnostics.DebuggerNonUserCode()> _ | 27 | <System.Diagnostics.DebuggerNonUserCode()> _ | |
| 28 | Public Sub New() | 28 | Public Sub New() | |
| 29 | MyBase.New() | 29 | MyBase.New() | |
| 30 | 30 | |||
| 31 | 'This call is required by the Windows Form Designer. | 31 | 'This call is required by the Windows Form Designer. | |
| 32 | InitializeComponent() | 32 | InitializeComponent() | |
| 33 | 33 | |||
| 34 | End Sub | 34 | End Sub | |
| 35 | 35 | |||
| 36 | 'Form overrides dispose to clean up the component list. | 36 | 'Form overrides dispose to clean up the component list. | |
| 37 | <System.Diagnostics.DebuggerNonUserCode()> _ | 37 | <System.Diagnostics.DebuggerNonUserCode()> _ | |
| 38 | Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) | 38 | Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) | |
| 39 | If disposing Then | 39 | If disposing Then | |
| 40 | '-- Dispose of the components | 40 | '-- Dispose of the components | |
| 41 | If components IsNot Nothing Then | 41 | If components IsNot Nothing Then | |
| 42 | components.Dispose() | 42 | components.Dispose() | |
| 43 | End If | 43 | End If | |
| 44 | 44 | |||
| 45 | '-- Dispose of each business object on the form | 45 | '-- Dispose of each business object on the form | |
| 46 | If Not Me.IsChildForm() Then | 46 | If Not Me.IsChildForm() Then | |
| 47 | For Each bo As BusinessLayer In Me.BusinessObjects | 47 | For Each bo As BusinessLayer In Me.BusinessObjects | |
| 48 | bo.Dispose() | 48 | bo.Dispose() | |
| 49 | Next | 49 | Next | |
| 50 | End If | 50 | End If | |
| 51 | End If | 51 | End If | |
| 52 | MyBase.Dispose(disposing) | 52 | MyBase.Dispose(disposing) | |
| 53 | End Sub | 53 | End Sub | |
| 54 | 54 | |||
| 55 | 'Required by the Windows Form Designer | 55 | 'Required by the Windows Form Designer | |
| 56 | Private components As System.ComponentModel.IContainer | 56 | Private components As System.ComponentModel.IContainer | |
| 57 | 57 | |||
| 58 | 'NOTE: The following procedure is required by the Windows Form Designer | 58 | 'NOTE: The following procedure is required by the Windows Form Designer | |
| 59 | 'It can be modified using the Windows Form Designer. | 59 | 'It can be modified using the Windows Form Designer. | |
| 60 | 'Do not modify it using the code editor. | 60 | 'Do not modify it using the code editor. | |
| 61 | <System.Diagnostics.DebuggerStepThrough()> _ | 61 | <System.Diagnostics.DebuggerStepThrough()> _ | |
| 62 | Private Sub InitializeComponent() | 62 | Private Sub InitializeComponent() | |
| 63 | Me.SuspendLayout() | 63 | Me.SuspendLayout() | |
| 64 | ' | 64 | ' | |
| 65 | 'BaseForm | 65 | 'BaseForm | |
| 66 | ' | 66 | ' | |
| 67 | Me.ClientSize = New System.Drawing.Size(637, 529) | 67 | Me.ClientSize = New System.Drawing.Size(637, 529) | |
| 68 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog | 68 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog | |
| 69 | Me.Name = "BaseForm" | 69 | Me.Name = "BaseForm" | |
| 70 | Me.ShowInTaskbar = False | 70 | Me.ShowInTaskbar = False | |
| 71 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen | 71 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen | |
| 72 | Me.Text = "BaseForm" | 72 | Me.Text = "BaseForm" | |
| 73 | Me.ResumeLayout(False) | 73 | Me.ResumeLayout(False) | |
| 74 | 74 | |||
| 75 | End Sub | 75 | End Sub | |
| 76 | End Class | 76 | End Class | |
| 77 | End Namespace | 77 | End Namespace |